home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 April: Mac OS SDK / Dev.CD Apr 00 SDK1.toast / Development Kits / Mac OS / Appearance SDK 1.0.4 / Appearance Sample Code / Headers / PInterfaces / Appearance.p next >
Encoding:
Text File  |  1999-07-16  |  14.9 KB  |  391 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Appearance.p
  3.  
  4.      Contains:    Appearance Manager & SDK Interfaces.
  5.  
  6.      Version:    Technology:    Appearance 1.0.2
  7.                  Release:    To be used with Universal Interfaces 3.0.1
  8.  
  9.      Copyright:    © 1994-1997 by Apple Computer, Inc., all rights reserved
  10.  
  11.      Bugs?:        Please include the the file and version information (from above) with
  12.                  the problem description.  Developers belonging to one of the Apple
  13.                  developer programs can submit bug reports to:
  14.  
  15.                      devsupport@apple.com
  16.  
  17. }
  18. {$IFC UNDEFINED UsingIncludes}
  19. {$SETC UsingIncludes := 0}
  20. {$ENDC}
  21.  
  22. {$IFC NOT UsingIncludes}
  23.  UNIT Appearance;
  24.  INTERFACE
  25. {$ENDC}
  26.  
  27. {$IFC UNDEFINED __APPEARANCE__}
  28. {$SETC __APPEARANCE__ := 1}
  29.  
  30. {$I+}
  31. {$SETC AppearanceIncludes := UsingIncludes}
  32. {$SETC UsingIncludes := 1}
  33.  
  34. {$IFC UNDEFINED __TYPES__}
  35. {$I Types.p}
  36. {$ENDC}
  37. {$IFC UNDEFINED __QUICKDRAW__}
  38. {$I Quickdraw.p}
  39. {$ENDC}
  40. {$IFC UNDEFINED __TEXTEDIT__}
  41. {$I TextEdit.p}
  42. {$ENDC}
  43. {$IFC UNDEFINED __QDOFFSCREEN__}
  44. {$I QDOffscreen.p}
  45. {$ENDC}
  46.  
  47. {——————————————————————————————————————————————————————————————————————————————————}
  48. { Appearance Manager constants, etc.                                                }
  49. {——————————————————————————————————————————————————————————————————————————————————}
  50.  
  51. {$PUSH}
  52. {$ALIGN MAC68K}
  53. {$LibExport+}
  54.  
  55.  
  56. CONST
  57.                                                                 {  Appearance Trap Number  }
  58.     _AppearanceDispatch            = $AA74;
  59.  
  60. { Gestalt selector and values for the Appearance Manager }
  61.     gestaltAppearanceAttr        = 'appr';
  62.     gestaltAppearanceExists        = 0;
  63.     gestaltAppearanceCompatMode    = 1;
  64.  
  65. { Gestalt selector for determining Appearance Manager version }
  66. { If this selector does not exist, it indicates that the 1.0  }
  67. { version is installed.                                       }
  68.     gestaltAppearanceVersion    = 'apvr';
  69.  
  70. { Appearance Manager Apple Events (1.0.1 and later) }
  71.     kAppearanceEventClass        = 'appr';                        {  Event Class  }
  72.     kAEThemeSwitch                = 'thme';                        {  Event ID's: Theme Switched  }
  73.  
  74. { Appearance Manager Error Codes }
  75.     appearanceBadBrushIndexErr    = -30560;                        {  pattern index invalid  }
  76.     appearanceProcessRegisteredErr = -30561;
  77.     appearanceProcessNotRegisteredErr = -30562;
  78.     appearanceBadTextColorIndexErr = -30563;
  79.     appearanceThemeHasNoAccents    = -30564;
  80.  
  81.     kThemeActiveDialogBackgroundBrush = 1;                        {  Dialogs  }
  82.     kThemeInactiveDialogBackgroundBrush = 2;                    {  Dialogs  }
  83.     kThemeActiveAlertBackgroundBrush = 3;
  84.     kThemeInactiveAlertBackgroundBrush = 4;
  85.     kThemeActiveModelessDialogBackgroundBrush = 5;
  86.     kThemeInactiveModelessDialogBackgroundBrush = 6;
  87.     kThemeActiveUtilityWindowBackgroundBrush = 7;                {  Miscellaneous  }
  88.     kThemeInactiveUtilityWindowBackgroundBrush = 8;                {  Miscellaneous  }
  89.     kThemeListViewSortColumnBackgroundBrush = 9;                {  Finder  }
  90.     kThemeListViewBackgroundBrush = 10;
  91.     kThemeIconLabelBackgroundBrush = 11;
  92.     kThemeListViewSeparatorBrush = 12;
  93.     kThemeChasingArrowsBrush    = 13;
  94.     kThemeDragHiliteBrush        = 14;
  95.     kThemeDocumentWindowBackgroundBrush = 15;
  96.     kThemeFinderWindowBackgroundBrush = 16;
  97.  
  98.  
  99. TYPE
  100.     ThemeBrush                            = SInt16;
  101.  
  102. CONST
  103.     kThemeActiveDialogTextColor    = 1;                            {  Dialogs  }
  104.     kThemeInactiveDialogTextColor = 2;
  105.     kThemeActiveAlertTextColor    = 3;
  106.     kThemeInactiveAlertTextColor = 4;
  107.     kThemeActiveModelessDialogTextColor = 5;
  108.     kThemeInactiveModelessDialogTextColor = 6;
  109.     kThemeActiveWindowHeaderTextColor = 7;                        {  Primitives  }
  110.     kThemeInactiveWindowHeaderTextColor = 8;
  111.     kThemeActivePlacardTextColor = 9;                            {  Primitives  }
  112.     kThemeInactivePlacardTextColor = 10;
  113.     kThemePressedPlacardTextColor = 11;
  114.     kThemeActivePushButtonTextColor = 12;                        {  Primitives  }
  115.     kThemeInactivePushButtonTextColor = 13;
  116.     kThemePressedPushButtonTextColor = 14;
  117.     kThemeActiveBevelButtonTextColor = 15;                        {  Primitives  }
  118.     kThemeInactiveBevelButtonTextColor = 16;
  119.     kThemePressedBevelButtonTextColor = 17;
  120.     kThemeActivePopupButtonTextColor = 18;                        {  Primitives  }
  121.     kThemeInactivePopupButtonTextColor = 19;
  122.     kThemePressedPopupButtonTextColor = 20;
  123.     kThemeIconLabelTextColor    = 21;                            {  Finder  }
  124.     kThemeListViewTextColor        = 22;
  125.  
  126. { Text Colors available in Appearance 1.0.1 or later }
  127.     kThemeActiveDocumentWindowTitleTextColor = 23;
  128.     kThemeInactiveDocumentWindowTitleTextColor = 24;
  129.     kThemeActiveMovableModalWindowTitleTextColor = 25;
  130.     kThemeInactiveMovableModalWindowTitleTextColor = 26;
  131.     kThemeActiveUtilityWindowTitleTextColor = 27;
  132.     kThemeInactiveUtilityWindowTitleTextColor = 28;
  133.     kThemeActivePopupWindowTitleColor = 29;
  134.     kThemeInactivePopupWindowTitleColor = 30;
  135.     kThemeActiveRootMenuTextColor = 31;
  136.     kThemeSelectedRootMenuTextColor = 32;
  137.     kThemeDisabledRootMenuTextColor = 33;
  138.     kThemeActiveMenuItemTextColor = 34;
  139.     kThemeSelectedMenuItemTextColor = 35;
  140.     kThemeDisabledMenuItemTextColor = 36;
  141.     kThemeActivePopupLabelTextColor = 37;
  142.     kThemeInactivePopupLabelTextColor = 38;
  143.  
  144.  
  145. TYPE
  146.     ThemeTextColor                        = SInt16;
  147. { States to draw primitives: disabled, active, and pressed (hilited) }
  148.  
  149. CONST
  150.     kThemeStateDisabled            = 0;
  151.     kThemeStateActive            = 1;
  152.     kThemeStatePressed            = 2;
  153.  
  154.  
  155. TYPE
  156.     ThemeDrawState                        = UInt32;
  157. {——————————————————————————————————————————————————————————————————————————————————}
  158. { Theme menu bar drawing states                                                    }
  159. {——————————————————————————————————————————————————————————————————————————————————}
  160.  
  161. CONST
  162.     kThemeMenuBarNormal            = 0;
  163.     kThemeMenuBarSelected        = 1;
  164.  
  165.  
  166. TYPE
  167.     ThemeMenuBarState                    = SInt16;
  168. { attributes }
  169.  
  170. CONST
  171.     kThemeMenuSquareMenuBar        = $01;
  172.  
  173. {——————————————————————————————————————————————————————————————————————————————————}
  174. { Theme menu drawing states                                                        }
  175. {——————————————————————————————————————————————————————————————————————————————————}
  176.     kThemeMenuActive            = 0;
  177.     kThemeMenuSelected            = 1;
  178.     kThemeMenuDisabled            = 3;
  179.  
  180.  
  181. TYPE
  182.     ThemeMenuState                        = SInt16;
  183.  
  184. CONST
  185.     kThemeMenuTypePullDown        = 0;
  186.     kThemeMenuTypePopUp            = 1;
  187.     kThemeMenuTypeHierarchical    = 2;
  188.  
  189.  
  190. TYPE
  191.     ThemeMenuType                        = SInt16;
  192.  
  193. CONST
  194.     kThemeMenuItemPlain            = 0;
  195.     kThemeMenuItemHierarchical    = 1;
  196.     kThemeMenuItemScrollUpArrow    = 2;
  197.     kThemeMenuItemScrollDownArrow = 3;
  198.  
  199.  
  200. TYPE
  201.     ThemeMenuItemType                    = SInt16;
  202. {——————————————————————————————————————————————————————————————————————————————————}
  203. { Menu Drawing callbacks                                                            }
  204. {——————————————————————————————————————————————————————————————————————————————————}
  205.     MenuTitleDrawingProcPtr = ProcPtr;  { PROCEDURE MenuTitleDrawing((CONST)VAR inBounds: Rect; inDepth: SInt16; inIsColorDevice: BOOLEAN; inUserData: SInt32); }
  206.  
  207.     MenuItemDrawingProcPtr = ProcPtr;  { PROCEDURE MenuItemDrawing((CONST)VAR inBounds: Rect; inDepth: SInt16; inIsColorDevice: BOOLEAN; inUserData: SInt32); }
  208.  
  209.     MenuTitleDrawingUPP = UniversalProcPtr;
  210.     MenuItemDrawingUPP = UniversalProcPtr;
  211.  
  212. CONST
  213.     uppMenuTitleDrawingProcInfo = $000036C0;
  214.     uppMenuItemDrawingProcInfo = $000036C0;
  215.  
  216. FUNCTION NewMenuTitleDrawingProc(userRoutine: MenuTitleDrawingProcPtr): MenuTitleDrawingUPP;
  217.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  218.     INLINE $2E9F;
  219.     {$ENDC}
  220.  
  221. FUNCTION NewMenuItemDrawingProc(userRoutine: MenuItemDrawingProcPtr): MenuItemDrawingUPP;
  222.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  223.     INLINE $2E9F;
  224.     {$ENDC}
  225.  
  226. PROCEDURE CallMenuTitleDrawingProc({CONST}VAR inBounds: Rect; inDepth: SInt16; inIsColorDevice: BOOLEAN; inUserData: SInt32; userRoutine: MenuTitleDrawingUPP);
  227.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  228.     INLINE $205F, $4E90;
  229.     {$ENDC}
  230.  
  231. PROCEDURE CallMenuItemDrawingProc({CONST}VAR inBounds: Rect; inDepth: SInt16; inIsColorDevice: BOOLEAN; inUserData: SInt32; userRoutine: MenuItemDrawingUPP);
  232.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  233.     INLINE $205F, $4E90;
  234.     {$ENDC}
  235.  
  236.  
  237. {——————————————————————————————————————————————————————————————————————————————————}
  238. {    Appearance Manager APIs                                                            }
  239. {——————————————————————————————————————————————————————————————————————————————————}
  240. { Registering Appearance-Savvy Applications }
  241. FUNCTION RegisterAppearanceClient: OSStatus;
  242.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  243.     INLINE $303C, $0015, $AA74;
  244.     {$ENDC}
  245. FUNCTION UnregisterAppearanceClient: OSStatus;
  246.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  247.     INLINE $303C, $0016, $AA74;
  248.     {$ENDC}
  249. {****************************************************************************
  250.     NOTES ON THEME BRUSHES
  251.     Theme brushes can be either colors or patterns, depending on the theme.
  252.     Because of this, you should be prepared to handle the case where a brush
  253.     is a pattern and save and restore the pnPixPat and bkPixPat fields of
  254.     your GrafPorts when saving the fore and back colors. Also, since patterns
  255.     in bkPixPat override the background color of the window, you should use
  256.     BackPat to set your background pattern to a normal white pattern. This
  257.     will ensure that you can use RGBBackColor to set your back color to white,
  258.     call EraseRect and get the expected results.
  259. ****************************************************************************}
  260.  
  261. FUNCTION SetThemePen(inBrush: ThemeBrush; inDepth: SInt16; inIsColorDevice: BOOLEAN): OSStatus;
  262.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  263.     INLINE $303C, $0001, $AA74;
  264.     {$ENDC}
  265. FUNCTION SetThemeBackground(inBrush: ThemeBrush; inDepth: SInt16; inIsColorDevice: BOOLEAN): OSStatus;
  266.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  267.     INLINE $303C, $0002, $AA74;
  268.     {$ENDC}
  269. FUNCTION SetThemeTextColor(inColor: ThemeTextColor; inDepth: SInt16; inIsColorDevice: BOOLEAN): OSStatus;
  270.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  271.     INLINE $303C, $0003, $AA74;
  272.     {$ENDC}
  273. FUNCTION SetThemeWindowBackground(inWindow: WindowPtr; inBrush: ThemeBrush; inUpdate: BOOLEAN): OSStatus;
  274.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  275.     INLINE $303C, $0004, $AA74;
  276.     {$ENDC}
  277. { Window Placards, Headers and Frames }
  278. FUNCTION DrawThemeWindowHeader({CONST}VAR inRect: Rect; inState: ThemeDrawState): OSStatus;
  279.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  280.     INLINE $303C, $0005, $AA74;
  281.     {$ENDC}
  282. FUNCTION DrawThemeWindowListViewHeader({CONST}VAR inRect: Rect; inState: ThemeDrawState): OSStatus;
  283.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  284.     INLINE $303C, $0006, $AA74;
  285.     {$ENDC}
  286. FUNCTION DrawThemePlacard({CONST}VAR inRect: Rect; inState: ThemeDrawState): OSStatus;
  287.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  288.     INLINE $303C, $0007, $AA74;
  289.     {$ENDC}
  290. FUNCTION DrawThemeEditTextFrame({CONST}VAR inRect: Rect; inState: ThemeDrawState): OSStatus;
  291.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  292.     INLINE $303C, $0009, $AA74;
  293.     {$ENDC}
  294. FUNCTION DrawThemeListBoxFrame({CONST}VAR inRect: Rect; inState: ThemeDrawState): OSStatus;
  295.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  296.     INLINE $303C, $000A, $AA74;
  297.     {$ENDC}
  298. { Keyboard Focus Drawing }
  299. FUNCTION DrawThemeFocusRect({CONST}VAR inRect: Rect; inHasFocus: BOOLEAN): OSStatus;
  300.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  301.     INLINE $303C, $000B, $AA74;
  302.     {$ENDC}
  303. { Dialog Group Boxes and Separators }
  304. FUNCTION DrawThemePrimaryGroup({CONST}VAR inRect: Rect; inState: ThemeDrawState): OSStatus;
  305.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  306.     INLINE $303C, $000C, $AA74;
  307.     {$ENDC}
  308. FUNCTION DrawThemeSecondaryGroup({CONST}VAR inRect: Rect; inState: ThemeDrawState): OSStatus;
  309.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  310.     INLINE $303C, $000D, $AA74;
  311.     {$ENDC}
  312. FUNCTION DrawThemeSeparator({CONST}VAR inRect: Rect; inState: ThemeDrawState): OSStatus;
  313.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  314.     INLINE $303C, $000E, $AA74;
  315.     {$ENDC}
  316. { -------------------- BEGIN APPEARANCE 1.0.1 -------------------------------------}
  317. { The following Appearance Manager APIs are only available }
  318. { in Appearance 1.0.1 or later                             }
  319. FUNCTION DrawThemeModelessDialogFrame({CONST}VAR inRect: Rect; inState: ThemeDrawState): OSStatus;
  320.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  321.     INLINE $303C, $0008, $AA74;
  322.     {$ENDC}
  323. FUNCTION DrawThemeGenericWell({CONST}VAR inRect: Rect; inState: ThemeDrawState; inFillCenter: BOOLEAN): OSStatus;
  324.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  325.     INLINE $303C, $0022, $AA74;
  326.     {$ENDC}
  327. FUNCTION DrawThemeFocusRegion(inRegion: RgnHandle; inHasFocus: BOOLEAN): OSStatus;
  328.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  329.     INLINE $303C, $0023, $AA74;
  330.     {$ENDC}
  331. FUNCTION IsThemeInColor(inDepth: SInt16; inIsColorDevice: BOOLEAN): BOOLEAN;
  332.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  333.     INLINE $303C, $0024, $AA74;
  334.     {$ENDC}
  335. { IMPORTANT: GetThemeAccentColors will only work in the platinum theme. Any other theme will }
  336. { return an error }
  337. FUNCTION GetThemeAccentColors(VAR outColors: CTabHandle): OSStatus;
  338.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  339.     INLINE $303C, $0025, $AA74;
  340.     {$ENDC}
  341. FUNCTION DrawThemeMenuBarBackground({CONST}VAR inBounds: Rect; inState: ThemeMenuBarState; inAttributes: UInt32): OSStatus;
  342.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  343.     INLINE $303C, $0018, $AA74;
  344.     {$ENDC}
  345. FUNCTION DrawThemeMenuTitle({CONST}VAR inMenuBarRect: Rect; {CONST}VAR inTitleRect: Rect; inState: ThemeMenuState; inAttributes: UInt32; inTitleProc: MenuTitleDrawingUPP; inTitleData: UInt32): OSStatus;
  346.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  347.     INLINE $303C, $0019, $AA74;
  348.     {$ENDC}
  349. FUNCTION GetThemeMenuBarHeight(VAR outHeight: SInt16): OSStatus;
  350.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  351.     INLINE $303C, $001A, $AA74;
  352.     {$ENDC}
  353. FUNCTION DrawThemeMenuBackground({CONST}VAR inMenuRect: Rect; inMenuType: ThemeMenuType): OSStatus;
  354.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  355.     INLINE $303C, $001B, $AA74;
  356.     {$ENDC}
  357. FUNCTION GetThemeMenuBackgroundRegion({CONST}VAR inMenuRect: Rect; menuType: ThemeMenuType; region: RgnHandle): OSStatus;
  358.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  359.     INLINE $303C, $001C, $AA74;
  360.     {$ENDC}
  361. FUNCTION DrawThemeMenuItem({CONST}VAR inMenuRect: Rect; {CONST}VAR inItemRect: Rect; inVirtualMenuTop: SInt16; inVirtualMenuBottom: SInt16; inState: ThemeMenuState; inItemType: ThemeMenuItemType; inDrawProc: MenuItemDrawingUPP; inUserData: UInt32): OSStatus;
  362.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  363.     INLINE $303C, $001D, $AA74;
  364.     {$ENDC}
  365. FUNCTION DrawThemeMenuSeparator({CONST}VAR inItemRect: Rect): OSStatus;
  366.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  367.     INLINE $303C, $001E, $AA74;
  368.     {$ENDC}
  369. FUNCTION GetThemeMenuSeparatorHeight(VAR outHeight: SInt16): OSStatus;
  370.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  371.     INLINE $303C, $001F, $AA74;
  372.     {$ENDC}
  373. FUNCTION GetThemeMenuItemExtra(inItemType: ThemeMenuItemType; VAR outHeight: SInt16; VAR outWidth: SInt16): OSStatus;
  374.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  375.     INLINE $303C, $0020, $AA74;
  376.     {$ENDC}
  377. FUNCTION GetThemeMenuTitleExtra(VAR outWidth: SInt16; inIsSquished: BOOLEAN): OSStatus;
  378.     {$IFC TARGET_OS_MAC AND TARGET_CPU_68K AND NOT TARGET_RT_MAC_CFM}
  379.     INLINE $303C, $0021, $AA74;
  380.     {$ENDC}
  381. {$ALIGN RESET}
  382. {$POP}
  383.  
  384. {$SETC UsingIncludes := AppearanceIncludes}
  385.  
  386. {$ENDC} {__APPEARANCE__}
  387.  
  388. {$IFC NOT UsingIncludes}
  389.  END.
  390. {$ENDC}
  391.